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BASSDET : fetch and store DET 15-SEP-1984 23:37:42 VAX/VMS Macro v04-00 Page 0 
Table of contents 

+¢) 6 DECLARATIONS 

(3) 9 BASSDET_F = Fetch the determinant as a floating point value 

(4) 145 BASSDET_D = Return the double precision value of DET 

(5) 188 BASSDET_G = Return the gfloat value of 

(6) 238 BASSDET_H = Return the Afloat value of DET 

(7) 284 BASSSSTORE_DET = Put a value into the OWN storage 

(8) 330 BASSS$STORE_DET_G = Put a value into the OWN storage 

(9) 375 BASSSSTORE_DET_H = Put a value into the OWN storage 
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; fetch and store DET iF aks eb $337 :66 AX/VMS Macro Vv04-00 Page 1 
6-SEP-1984 10:24:0 BASRTL.SRCJBASDET.MAR; 1 (1) 
TITLE BASSDET ; fetch and store DET 
~IDENT /1-008/ ; File: BASDET.MAR Edit: MDL1008 
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MARBABRAARAAARAAAAALSASAAAAAAAALALALE RASA S SAAR R SARS ARERR AREA REAR SERRA RRR RR SESS SE SO 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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seePORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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Be Se Be Oe Be Os Oe Ge Se Be Se Se Oe Oe Se Be Se Ss Be Be Se 
@eeneeneeneeeeeeennenenaeennne 


LARRRARARAASLASARLALARARRARARESERRRARRRESARRARERRARSRRRARR RARER RAR RA ARAD AS SL SO | 


+ 
FACILITY: BASIC Language Support 
ABSTRACT: 


This module has routines to store a double, bbe get or hfloat value_into the 
OWN storage that has the determinant of the last matrix inverted. The store 
onary point is used by the BASIC initializer to initialize the DET to 0 

and by the matrix inversion routines to store the determinant. There are 
entry points to retrieve the determinant as either a float, double, g floating, 
or AG picts (The proper entry point depends on how the determinant was 
saved. 


ENVIRONMENT: User Mode, AST Reentrant 


AUTHOR: R. Will, CREATION DATE: 24-Jul-79 
MODIFIED BY: 


SOSSDOOOOSDOSOOOOSOOSOOOSOOSOOOOOOSOSOO OOOO OO OOOO OCCOOCOODOOOOOOOCOOO 
SOOSOSCOSCOSCSCSOOSOOCOOOSOSSSOSSOSOSCSCSOOCSOSCSOSOSOSOSOSOSOOCOSOOSOOSOSOOOOOOSoOO 
SOCCCSSOSOOCSCSOSOOSOSOOSOSOOSOSOSOSOSOSOSOSOSOSOOOOOCOOOOOOOOOOOOSoOO 

pe) we le | we |e ele we we ee ew ww wala olololololelololelololololelololololeololalelelololoio! 
NOAA AN CO ODNOA UE WIN 0 OD NAUE WN $9 OD NAME WI 0 OONO NEW (OO ONOUES Wh — 


MUMMIES BB BEE EEE BWW nononononononononony 2 2 2 2 


++ - : VERSION 1 

8 1-001 = Original 
00 1-008 - Correct some typos. JBS 25-JUL-1979 
O88 1-003 - Add scaling comments. RW 31-Dec-1979 
000 1-004 = Add entry points for g and h f oat ing, PL 30-Sep-81 
000 1-005 - Change entry point BASSDET_H_R5 to BASSDET_H since it is 
000 a CALL entry point. 4) 5-0ct-8 
Bah 1-00 - Add G* to BASSSSCALE_R1 call. PLL 22-Mar-1982 : 

00 1-007 = store the determinant in H_floating, and then convert it to the 
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pARSDET ; fetch and store DET 15-SEP=1 
1-00 6-SEP=1 
0000 58 ; desired data type when called for. MDL 16-Jan-1984 
| 8000 iB i. 3 1-008 - fix a bug in BASSS$STORE_DET. MDL 6-Mar-1984 
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BASSDET ; fetch and store DET ¥* -SEP 4 ont nde cro V04-00 Page 
1-008 BECLARATIONS 6-SEP 21984 #9; 36:69 LBASRIL. SRCIBASDET .MAR; 1 ¥ d) 
000 6¢ -SBTTL DECLARATIONS 
800 6 ¢ INCLUDE FILES 
209 ee ; SSF DEF t t l 
3 use to get scale 
009 8 . 
4 o8 ; EXTERNAL DECLARATIONS: 
000 % -DSABL GBL ; Prevent undeclared 
4 71 3; symbols from bein 
00 ye : automatically global. 
44 Y -EXTRN BASSS$SCALE_R1 ; get the scale for double 
0000 75 ; MACROS: 
0000 76 ; 
0000 77 
0000 78; 
0000 79 ; EQUATED SYMBOLS: 
0000 80 ; 
0000 81 
0000 Hf 3 
0000 83 ; OWN STORAGE: 
0000 84 ; 
0000 85 
00000000 86 -PSECT _BASSDATA PIC, USR, CON, REL, LCL, NOSHR, NOEXE, - 
000 87 RD, WRT 
00000010 0000 88 DET: ~BLKL 4 ; 4 longwords can contain hfloat, 
0010 89 : gfloat, or dbl determinant 
0010 90 
0010 91 ; 
Bat6 3 3 PSECT DECLARATIONS: 
0010 94 -PSECT _BASSCODE PIC, USR, CON, REL, LCL, SHR, - 
00007 es o2 EXE, RD, NOWRT. LONG 


—_—_—_—_—eeeereeeeeeeeeeeee"s)) 


cc 
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 BASSDET : nd store DET 15-SEP-1984 23:37:4 AX/VMS Macro V04-00 Pa 4 
$4388 - Fetch the determinant as a g-sEp-} 984 13:34:69 UBASRTL. SRCIBASDET .MAR; 1 = (3) 
a -SBTTL BASSDET_F = Fetch the determinant as a floating point value 
FUNCTIONAL DESCRIPTION: 


The determinant is stored in H_floating. Convert it to F_floating and 
return the value in RO. 


; CALLING SEQUENCE: 

CALL BASSDET_F 

; INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


FUNCTION VALUE: 
COMPLETION CODES: 


The rounded floating point value of the OWN storage 
SIDE EFFECTS: 
NONE 
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AO 
oc 
mo 
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-ENTRY BASSDET_F, “M<R2,R3,R4> ; Entry point 


MOVL  SFSL_SAVE_FP(FP), RO 
JSB G*BASSSSCALE_RI 


0 
CVTHF DET, RO 
R4, RO 


pass FP to get scale 
get scale inRO@ RI 

cvt scale factor to desired data type 
cvt determinant to desired data type 
descale 


50. =60C AD 00 
00000000'GF 16 

54 5076 

50 sees * vad F6FD 
50 4 ‘ 


WRI OC OONAUES WIN O OONAUE WN O OB NOAOUES WN" OVOONAUS WR OOo 


a a a ee a a dd od dd 
SBE FENWAY NIPININININIDD 2 2 PO OP | SH OOOOOOCOOOCOWO 


| 
| | 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
oo01c 0 
0 
0 
0 
0 


ase 
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- Return the double precisi amet 93:34:69 UBASRTL. SRCIBASDET.MAR; 1 . (4) 

- -SBTTL BASSDET_D = Return the double precision value of DET 

FUNCTIONAL DESCRIPTION: 


The determinant is stored in H_floating. Convert it to D_floating and 
return the value in RO. 


CALLING SEQUENCE: 
CALL BAS$DET_D 

; INPUT PARAMETERS: 

NONE 

; IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

; IMPLICIT OUTPUTS: 

NONE 


; FUNCTION VALUE: 
; COMPLETION CODES: 


The double precision value in DET, scaled if scaling is present 
; SIDE EFFECTS: 
NONE 
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«ENTRY BASSDET_D, “M<> : Entry point 
CVTHD DET, RO 
RET 
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nd store DET i at s tat b+ $332 565 yeslyes Macro V04-00 Page g 

- Return the gfloat value o 6-SEP-1984 10:24:0 BASRTL.SRCJBASDET.MAR; 1 (5) 
-SBTTL BASSDET_G = Return the gfloat value of DET 


FUNCTIONAL DESCRIPTION: 


} 


BASSDET 
, 1=008 


The determinant is stored in H_floating. Convert it to D_floating and 
return the value in RO. 


CALLING SEQUENCE: 

; CALL BASSDET_G 
> INPUT PARAMETERS: 

i me 

; IMPLICIT INPUTS: 

; NONE 

: OUTPUT PARAMETERS: 

bi oe 

; IMPLICIT OUTPUTS: 

; NONE 


; FUNCTION VALUE: 
COMPLETION CODES: 


The g floating value in DET 
; SIDE EFFECTS: 


SOOOCCCCOCOCCOCSCOOCOOOOOCOOOOOOOOSOOOOoOoOoOoOO “TF 


WALA AITOPIPOPINIPIPIPINPININININININININININININININININININININININININIPPoTPnnrrrnn =f 


DDS DS DS DSS DOS DOD DDD AAA AA AAA AAAOOAOOOaO 
AMIE W SO OO NAMES WN OOO NAME WN OOO NAUE WN OOo 


| 
| 
OOF C 
50 OC AD 00 
00000000'GF _ 16 
54 50 32FD 


B88 8 SB SOS SS SS SS SSS SSS SSS SSSSSSSSSsssssssssssss me 
IWIN WNIAIIDIPOPININININDINIDD 2 2 4 PP | MODOC OOOCOOCOCOOOOOOOOO0OOWC 


PRIPIPIPIPIPNINIPUNIPINININININININININININNNNNNNNNNNNNNNIN oe oe ee ee ee 


NONE 
0 
oe Se 
3 8 $ -ENTRY BASSDET_G, “M<R2,R3,R4,R5,R6,R7> ; Entry point 
028 8 MOVL SFSL_SAVE_FP(FP), RO ; pass FP to get scale 
1 02C 9 JSB G*BASSSSCALE_R1 3 get scale in RO & R1 ; 
0 32F 032 0 CVTDH RO, R4 s ¢vt scale factor to desired data type 
036 1 ; no CVTDG so we promote to H 
50 O0000000'°EF 70FD 0036 § DET, RO : cvt determinant to desired data type 
50 54 66FD O03E DIVH2 R4, RO ; descale 
54 50 70FD 0042 4 MOVH RO, R ; move out of the way 
50 54 76FD 0046 5 CVTHG R4, RO : cvt to desired data type 
04 004A 36 RET 
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BASSDET ; fetch and store DET 15-SEP-1984 23:37:4 AX/VMS Macro Vv04-00 Page 
1-008 BASSDET_H - Return the hfloat value o 6-SEP-1984 93:34:69 EBASRTL. SRCIGASDET.MAR: 1 . 
| 0948 335 see -SBTTL BASSDET.H = Return the hfloat value of DET 
ot a) ; FUNCTIONAL DESCRIPTION: 
$0c8 5 § Return the value in DET 
0048 435; 
Bpee 44 ; CALLING SEQUENCE: 
0048 45 ; 
0048 #6 ; CALL BASSDET_H 
0048 47 ; 
0048 48 ; INPUT PARAMETERS: 
Bree 49 ; 
048 50 ; NONE 
Bpee 51; 
0048 26 3; IMPLICIT INPUTS: 
0048 as § 
0048 54; NONE 
0048 $22 3 
0048 56 ; OUTPUT PARAMETERS: 
0048 257; 
0048 258; NONE 
0048 59 ; 
0048 60 ; IMPLICIT OUTPUTS: 
0048 61 ; 
0048 $0¢ 3 NONE 
0048 263; 
0048 264 ; FUNCTION VALUE: 
0048 265 ; COMPLETION CODES: 
0048 508 g . : 
0048 67 ; The h floating value in DET 
0048 268 ; 
0048 269 ; SIDE EFFECTS: 
0048 270; 
0048 271; NONE 
0048 si¢ 3 
0048 273 ;-- 
Boag 74 
OOFC Bete a -ENTRY BASSDET_H, “M<R2,R3,R4,R5,R6,R7> ; Entry point 
50 OC AD D0 004D 77 MOVL SFSL_SAVE_FP(FP), RO ; pass FP to get scale 
00000000'GF 16 0051 78 JSB G*BASSS$SCALE_R1 3: get scale in RO & R1 , 
54 50 32FD 0057 79 CVTDH RO, R4 ; Cvt scale factor to desired data type 
50 Q0000000'°EF 70FD 4 80 MOVH DET, RO 3 cvt determinant to desired data type 
50 4 oor? RRs 3} DIVH2 R4, RO 3; descale 


ss 
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BASSDET fetch and store DET 15-SEP-1984 23:37:4 AX/VMS Macro Vv04-00 Page 
808 BASSSSTORE_DET = Put @ value into the OW 6-SEP-1984 70:36:07 EBASKTL.SRCIBASDET MAR: 1 na 
86 ¢ as -SBTTL BASSSSTORE_DET = Put a value into the OWN storage 
$e § 3; FUNCTIONAL DESCRIPTION: 
$e 8 : Store the value passed. 

B30 39 3 CALLING SEQUENCE: 

O08 4 3 CALL BASSS$STORE_DET (determinant_value.rd.r) 

bos 94 ; INPUT PARAMETERS: 

does 596 

00000004 0068 3 determinant = 4 ; determinant must already be scaled 

0068 98 :; if scaling is present 

0068 99 

0068 00 ; 

0068 $03 3: IMPLICIT INPUTS: 

0068 8 : 

0068 303; NONE 

0068 304; 

0068 $h2 3; OUTPUT PARAMETERS: 

0068 06 ; 

0068 307; NONE 

0068 308; 

0068 309 ; IMPLICIT OUTPUTS: 

0068 10 ; 

0068 11; NONE 

0068 \¢ § 

st 313 ; FUNCTION VALUE: 

0068 314 ; COMPLETION CODES: 

0068 315; 

0068 316; NONE 

0068 317; 

0068 $15 3; SIDE EFFECTS: 

0068 19 ; 

0068 320; NONE 

0068 321; 

0068 322 ;:-- 

0068 323 

0000 sa $5¢ -ENTRY BASSSSTORE_DET, “M<> 3 Entry point 
00000000'EF 04 BC 32FD O06A 326 CVIDH a@determinant(AP), DET ; store the value 
Oe. Bl a 
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BASSDET ; fetch and store DET 15-SEP-1984 23:37:4 AX/VMS Macro V04-00 Page 9 
t- 8 BAS$SSTORE. DET G - Put a value into the 278Eb= 1382 93:30:09 YBASRIL. SREIBASDET_MAR: 1 . (8) 
te 9 . -SBTTL BASSS$STORE_DET_G - Put a value into the OWN storage 
o ¢ ; FUNCTIONAL DESCRIPTION: 
Bre : 3 Store the value passed. 
Bn § 3; CALLING SEQUENCE: 
Bn ee Hy $ CALL BASSS$STORE_DET_G (determinant_value.rg.r) 
0074 40 ; INPUT PARAMETERS: 
0074 41; 
0074 45 
00000004 0074 4 determinant = 4 
0074 44 
0074 45 ; 
0074 346 ; IMPLICIT INPUTS: 
0074 347; 
0074 348; NONE 
0074 349; 
0074 350 ; OUTPUT PARAMETERS: 
0074 351; 
0074 $26 3 NONE 
0074 353; 
0074 354 ; IMPLICIT OUTPUTS: 
0074 355; 
0074 356; NONE 
0074 357; 
0074 358 =; FUNCTION VALUE: 
0074 359 ; COMPLETION CODES: 
0074 360; 
0074 361; NONE | 
0074 306 3 
0074 3635 ; SIDE EFFECTS: 
0074 ne 3 
0074 65 ; NONE 
0074 366; | 
0074 367 ;-- 
074 368 f 
0000 $4} 335 ENTRY BASSSSTORE_DET_G, “M<> ; Entry point 
OOO00000'EF 04 BC S6FD 0076 £371 CVTGH a@determinant(AP), DET : store the value 
oe Ee 


_—_———— 


Fut a value into the 3-$b=|98¢ 19:34:09 EBASRTL. SRCIBASDET.MAR; 1 


passer i {tt 5 Eo DEt ne 15-SEP-19 AX/VMS Macro V04-00 Page 1g 
, te -SBTTL BASSSSTORE_DET_H - Put a value into the OWN storage 
FUNCTIONAL DESCRIPTION: 
7 ; Store the value passed. 
3 ; CALLING SEQUENCE: 
: ; CALL BASS$STORE_DET_H (determinant_value.rh.r) 
: INPUT PARAMETERS: 


00000004 determinant = 4 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


FUNCTION VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


0000 
OOOO0000"EF 04 BC r0te 


-ENTRY BASSSSTORE_DET_H, “M<> ; Entry point 
ot adeterminant(AP), DET 3; store the value 


SOOCCGCOGOOCOOOSOOOOOCSOSOOCSOOOSOOCSOOOOOOOOOCOOOOOOOOOOOO YO 
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~ END 
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BASSDET ; fetch and store DET 15-SEP-1984 23:37:4 AX/VMS Macro v04-00 Page 
Symbol table Patt 9 93530569 EBASRIL. SREIBASDET MAR: 1 ° 
BASSSSCALE_R1 eeereree = §6X 69 
BASSSSTORE_DET 8008 4 RG 8 
ASSSSTORE_DET_G 0000074 RG 3 
BASSSSTORE_DET_H 8000 st RG 03 
SSDET_D 0000018 RG 03 
BASSDET_F Boob ob oe RG 03 
BASSDET_G 00000026 RG 03 
ASSDET 00000048 RG 03 
ET 00000000 R 02 
DETERMINANT = 00000004 
SFSL_SAVE_FP = 0000000C 
pew amare maw amansan + 
: Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
00000000 ( 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 ( 0.) 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
-BASSDATA 00000010 ¢ 16.) 02 ¢ 2.) PIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
_BASSCODE 000000s8c (« 140.) 03 ¢ 3.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
pind aninnamnnnnat 
! Performance indicators ! 
iranian 
Phase Page faults CPU Time Elapsed Time 
Initialization | 29 00:00:00.07 00:00:00.68 
Command processing 118 00:00:00.45 00:00:03.07 
ass 118 00:00:01.27 bs BE 
Symbol table sort 9 bs 8 14 0:00:00.02 
ass 7 bs 9 00:00:01.96 
Symbol table output 3 0:00:00.02 00:00:00.03 
Psect synopsis output 2 00:00:00.02 00:00:00.03 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 349 00:00:02.64 00:00:10.34 


The working set Limit was 1050 pages. ; 

6122 bytes (12 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 39 non-local and 0 local symbols. 
419 source Lines were read in Pass 1, produc ing object records in Pass 2. 

8 pages of virtual memory were used to define 7 macros. 


+ 
! Macro Library statistics ! 
+ 


Sere eee eee ee BOM ee f 


Macro Library name Macros defined 
~$255$DUA28: CSYSLIBISTARLET.MLB; 2 4 
88 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 


uwvU . ow oow | 
> 
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BASSDET kai 3; fetch and store DET iF a Lt B49 $537 268 ort gi Macro V04-00 Page 1g 
VAX=11 Macro Run Statistics 66-SEP-1984 10:24:0 BASRTL.SRCIJBASDET.MAR; 1 (9). 


MACRO/ENABLE=SUPPRESSION/D1 SABLE= (GLOBAL , TRACEBACK) /LIS=L1S$:BASDET/OBJ=OBJ$:BASDET MSRC$:BASDET/UPDATE=(ENH$:BASDET) 
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